# Usage: 1900.tcl

if {![info exists eWorkDir]} {set eWorkDir [file dirname [info script]]}

package require DPeye

create {
	outputFile 1900.ps 
	mapFile 1900.map
	title "1900, designed by Baron M. Powell"
	creator "Mario Huys (woelpad@gmail.com)"
	$MapDrawingScale 1 $MapUnitScale 1 $MapSupplyScale 1
	$FrameThickness 6
	images {
		chart {1900.base.ps {scan {-263 -149 875 916} {} {Part1 Part2 Part3} 
			{@E setbbox m moveto C curveto @c closepath S stroke O {OceanColor fill} L {LandColor fill} W {SeaColor fill}}
			{CoastalBorder {L W O} NationalBorder S InternalBorder S}}}
		coordinates {1900.base.ps {scan {} {provinces INFO supplies TLA connections DRAW powers COUNTRY}}}
	}
	locations {
		supplies {image {coordinates supplies} Supplies s {Blue {} S}}
		coasts {image {coordinates provinces} Territories c {Red DarkGreen AF} {
			ALG ANK APU ARM BEL BER BOS BRE BUL CLY CON
			CYR DAM DEN EDI EGY FIN GAS GRE HEJ ICE IRE
			KIE KON LON LVN LVP MAR MOR NAP NET NWY PAL
			PIC PIE POR PRU ROM RUM SEV SWE TRI TRP TUN
			VEN WAL YOR
		}}
		lands {image {coordinates provinces} Territories l {Green DarkGreen A} {
			ALS ARA BOH BUD BUR COL GAL MIL MOS MUN PAR
			SER SIB SIL SOU SWI TYR UKR VIE WAR
		}}
		waters {image {coordinates provinces} Territories w {White White F} {
			ADR AEG BAL BAR BLA EAS ENG BOT LYO HEL ION
			IRI MAO NAO NTH NWG SKA TYS WES
		}}
		greens {{coordinates provinces} Territories g {DarkGreen DarkGreen A} {
			MAC SPA STP
		}}
		beaches {{coordinates provinces} Territories b {Yellow {} F} {
			MAC/EC MAC/WC SPA/EC SPA/NC SPA/WC STP/NC STP/SC
		}}
		ports {{coordinates provinces} Territories p {LightBlue White AF} {
			GIB
		}}
		crossings {image {coordinates connections} ShapePoints n Black}
	}
	locationTypes {
		Supplies {number 0 name 0 draw 1 define -1}
		Territories {number 0 name 1 populate 0 info 1}
		ShapePoints {number 0}
	}
	shapes {
		bridges {crossings {{connection 1 {0 1 4 3}} {1 2 3 4 5 6}}}
		capers {crossings {
			{connection 1 {0 1 4 3} 0} {7 {8 0 4}} {connection 1 0 {-1 2 4 1}} {{8 0 4} {9 0 4}} {connection 1 {-1 2 4 1} {0 1 4 3}} {{9 0 4} {10 0 4}}
			{connection 1 {0 1 4 3} 0} {11 {12 0 3}} {connection 1 0 {-1 2 4 1}} {{12 0 3} {13 0 3}} {connection 1 {-1 2 4 1} {0 1 4 3}} {{13 0 3} {14 0 3}}
		}}
	}
	borders {
		lands {image {chart LandColor} LandBrown CoastalBorder}
		lakes {image {chart SeaColor} SeaBlue CoastalBorder}
		internalBorders {image {chart InternalBorder} {} InternalBorder}
		borders {image {chart NationalBorder} {} NationalBorder}
		crossings {shape {bridges capers} Black Border {Black .1 {} 0 1}}
	}
	powers {
		Austria {}
		Britain {}
		France {}
		Germany {}
		Italy {}
		Russia {}
		Turkey {}
	}
	frame {bbox {} SeaBlue FrameBorder}
	layout {corner adjustments} fontSize 8
	drawLayoutBorder 7 composed 0 printLayout 0 testBorder 0
	addPage 1 pageContents {
		"\{"

		"200 40 DrawFleet"
		"200 40 180 140 ArrowPropose"
		"200 40 100 20 ArrowRetreat"
		"200 40 300 60 ArrowMove"
		
		"180 140 DrawArmy"
		"ProposePhase"
		"180 140 160 240 ArrowMove"
		"RetreatPhase"
		"180 140 80 120 ArrowMove"
		"MovePhase"
		"180 140 280 160 ArrowMove"

		"300 90 DrawFleet"
		"300 90 200 40 180 140 ArrowSupport"
		"300 120 DrawArmy"
		"300 120 180 140 ArrowHold"
		"300 150 DrawFleet"
		"300 150 180 140 160 240 ArrowConvoy"

		"\} dup exec -40 200 translate FailedOrder exec OkOrder 40 -200 translate"
				
		"400 200 DrawFleet"
		"400 200 ArrowArrive"
		"400 230 DrawArmy"
		"400 230 ArrowDepart"
		"400 260 DrawFleet"
		"400 260 ArrowRetreatArrive"
		"400 290 DrawArmy"
		"400 290 ArrowRetreatDepart"
		
		"500 200 DrawFleet"
		"500 200 BuildUnit"
		"500 230 DrawArmy"
		"500 230 DestroyUnit"
		"500 260 DrawFleet"
		"500 260 DisbandUnit"
		"500 290 DrawArmy"
		"500 290 RemoveUnit"
		"500 320 DrawFleet"
		"500 320 FindUnit"
		"500 350 DrawArmy"
		"500 350 LoseUnit"
		"500 380 DrawFleet"
		"500 380 QueryUnit"
    }
}
